   1 .MEMORY CONTENTS-HEX
   6 .BY G.MOSER
   7 goto 200
   8 C=0
  10 if A<0goto 120
  20 for N=1to 4
  30 B=Adiv 16
  40 if RM<10goto 60
  50 RM=RM+7
  60 @(5-N)=RM+48
  70 A=B
  80 if C=0goto 90
  81 A=A+2048
  90 next N
 100 TV=@(3)
 101 TV=@(4)
 102 print #1,"  ",
 103 TV=@(1)
 104 TV=@(2)
 105 print 
 110 return 
 120 A=32767-ABS(A)+1
 130 C=1
 140 goto 20
 200 print "MEMORY LOCATION"
 210 input T,U
 220 for V=Tto Ustep 2
 230 A=%(V)
 235 print #0,V,
 236 print #1,"/",
 240 gosub 8
 250 next V
 260 goto 200
:return ;run 